home *** CD-ROM | disk | FTP | other *** search
/ Disc to the Future 2 / Disc to the Future Part II Programmer's Reference (Wayzata Technology)(6013)(1992).bin / MAC / MPW_TOOL / TOOLS / TOOLS_WI / PERL / UNTESTED / EG / FINDTAR < prev    next >
Text File  |  1991-04-28  |  497b  |  18 lines
  1. #!/usr/bin/perl
  2.  
  3. # $Header: findtar,v 4.0 91/03/20 01:09:48 lwall Locked $
  4.  
  5. # findtar takes find-style arguments and spits out a tarfile on stdout.
  6. # It won't work unless your find supports -ls and your tar the I flag.
  7.  
  8. $args = join(' ',@ARGV);
  9. open(find,"/usr/bin/find $args -ls |") || die "Can't run find for you.";
  10.  
  11. open(tar,"| /bin/tar cIf - -") || die "Can't run tar for you: $!";
  12.  
  13. while (<find>) {
  14.     @x = split(' ');
  15.     if ($x[2] =~ /^d/) { print tar '-d ';}
  16.     print tar $x[10],"\n";
  17. }
  18.